home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 6
/
Eagles_Nest_Mac_Collection_Disc_6.TOAST
/
Windows
/
VBSuperBible
/
VB SuperBible.image
/
APPXD
/
DEBUG.FRM
(
.txt
)
next >
Wrap
Visual Basic Form
|
1992-03-23
|
4KB
|
116 lines
Form1
ASCII Text File Word Counter
Form1,
Label1
File Name:
FileName
C:\vb\vbsb\appxd\debug.txt
Label2
Lines:
LineCtr
CountButton
&Count
Label3
Words:
WordCtr
Label4
Characters:
CharCtr
ExitButton
E&xit
Label5
Dos File Length:
DOS_Len
Form_Click
Form_Load
Label1
Caption
GoodBye
Dir1_Change
File1o
PatternN
Command1_Click~
FileNamep
Text18
FileNumberE
Characters
Words
CaptionCharacters
Form1
Command2_Click
Words_Click
Label4
InputLine
CountWords
WordCount
TextLineX
TextLen
TextPos
Delimiters
AlphaChars
Form_LinkClose
Form_MouseMove
Button
ShiftD
Form_MouseDown)
Form_LostFocus
CharsU
Charb
Character
CharNumberC
ASCIINumbers
AsciiCode
AplaChars
InWord
False
TextChar
WordsFound
Label5
Command13
Enable
Enabledf
CharsCountedD
WordsCounted
LinesCounted
Label7
CharsThisLineK
WordFoundf
TextLineIn
TextLinIn
LineCtr%
WordCtr
CharCtr
Label3_Click
DOSLength
CountButton_Click
ExitButton
Click
ExitButton_Click
CountButton
TextFile
OpenText
FileName_Change
DOS_Len
DOSLength_Click
FormatNumber
EditPattern
NumberOfLines
NumberOfWords
NumberOfChars
FileName_KeyPress
KeyAscii
NumberOfFiles
FileCtr
MousePointer
DebugForm
WordCtr_Click<
#,###,###,##0"
ExitButton_Click
FileName_KeyPress
CountButton_Click
Get a file number and open the file for input
Set the value of the DOS_Len Label to display the length of the file
Read the file line by line until the end
CountWords
CountWords Function